home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / program / wkmc.lha / wkmc / src / plasma.c next >
C/C++ Source or Header  |  1995-10-23  |  5KB  |  174 lines
  1. /* Plasma v0.3 (23 October 1995) - ©1995 by WK-Artworks */
  2.  
  3. /*
  4.  
  5.  wkmc is a simple true-color-display using a 8-bit-screen,
  6.  the idea behind this came from Stefan Kost and Smack/IFT
  7.  
  8.  NOTE: I think it's fast beeing pure C !
  9.  
  10.  
  11.  Advantages (compared against MultiColor):
  12.   -terrible high speed
  13.   -picture-size and -aspect isn't changed
  14.   -no ugly diagonal-dithering
  15.   -no flickering (uses Multiscan)
  16.   -uses all 256 registers (not only 255)
  17.   -every color-channel (RGB) has a diffent number of
  18.    shades ("eye-sensitive")
  19. */
  20.  
  21. #include "wkmc.h"
  22.  
  23. void fSetPixel(int x,int y,double r,double g,double b) {
  24.  SetPixel(x,y,(UBYTE)(256.0*r),(UBYTE)(256.0*g),(UBYTE)(256.0*b));
  25. }
  26.  
  27. void fGetPixel(int x,int y,double *r,double *g,double *b) {
  28.  UBYTE rr,gg,bb;
  29.  GetPixel(x,y,&rr,&gg,&bb);
  30.  (*r)=(double)rr*f256;
  31.  (*g)=(double)gg*f256;
  32.  (*b)=(double)bb*f256;
  33. }
  34.  
  35. double rrmax=1.0/(double) RAND_MAX;
  36.  
  37. double drand48(void)
  38. {
  39.  return((double)rand()*rrmax);
  40. } 
  41.  
  42.  
  43. int main(int argc,char **argv) {
  44.  int width,height,w2,h2,qt=0;
  45.  double frac=20.0;
  46.  double aktr,aktg,aktb,c1r,c1g,c1b,c3r,c3g,c3b,c5r,c5g,c5b,c7r,c7g,c7b,c9r,c9g,c9b,f13,f14;
  47.  UWORD f[300][4],dimx,dimy;
  48.  double rndf,dimf;
  49.  WORD ptr=0;
  50.  UWORD x1,x2,x3,y1,y2,y3;
  51.  
  52.  struct IntuiMessage *imsg;
  53.  ULONG iclass;
  54.  USHORT icode;
  55.  printf("\n Plasma v0.3 - ©1995 by WK-Artworks\n");
  56.  printf(" (Plasma-algorithm by Stefan Kost)\n");
  57.  printf("------------------------------------\n");
  58.  width=320;
  59.  height=240;
  60.  if(argc<2) {printf(" Usage: plasma <frac> [LARGE]\n");return(1);}
  61.  frac=strtod(argv[1],NULL);
  62.  if(frac<=0.0) frac=20.0;
  63.  if(argc>2) {width=640;height=480;}
  64.  if(init(width,height)==0) {
  65.  printf(" Resolution : %dx%d\n",width,height);
  66.  
  67.   /* do it */
  68.   w2=width/2;h2=height/2;
  69.   f13=(double)1.0/(double)3.0;
  70.   f14=(double)1.0/(double)4.0;
  71.  
  72.   time(&tm1);
  73.   dimf=frac/((double)h2*(double)w2);
  74.   f[0][0]=0;f[0][1]=0;f[0][2]=w2-1;f[0][3]=h2-1;
  75.   aktr=drand48();aktg=drand48();aktb=drand48();
  76.   fSetPixel(0,0,aktr,aktg,aktb);
  77.   aktr=drand48();aktg=drand48();aktb=drand48();
  78.   fSetPixel(w2-1,0,aktr,aktg,aktb);
  79.   aktr=drand48();aktg=drand48();aktb=drand48();
  80.   fSetPixel(w2-1,h2-1,aktr,aktg,aktb);
  81.   aktr=drand48();aktg=drand48();aktb=drand48();
  82.   fSetPixel(0,h2-1,aktr,aktg,aktb);
  83.   while(ptr>-1) {
  84.     dimx=f[ptr][2]-f[ptr][0];
  85.     dimy=f[ptr][3]-f[ptr][1];
  86.     if(dimx>1 || dimy>1) {
  87.     rndf=(dimx*dimy)*dimf;
  88.      x1=f[ptr][0];x3=f[ptr][2];x2=x1+((x3-x1)>>1);
  89.      y1=f[ptr][1];y3=f[ptr][3];y2=y1+((y3-y1)>>1);
  90.      fGetPixel(x1,y1,&c1r,&c1g,&c1b);
  91.     fGetPixel(x3,y1,&c3r,&c3g,&c3b);
  92.     fGetPixel(x3,y3,&c9r,&c9g,&c9b);
  93.     fGetPixel(x1,y3,&c7r,&c7g,&c7b);
  94.     c5r=(c1r+c3r+c7r+c9r)*f14+(rndf*(0.5-drand48()));
  95.     if(c5r>1.0) c5r=1.0;
  96.      if(c5r<0.0) c5r=0.0;
  97.      c5g=(c1g+c3g+c7g+c9g)*f14+(rndf*(0.5-drand48()));
  98.     if(c5g>1.0) c5g=1.0;
  99.      if(c5g<0.0) c5g=0.0;
  100.      c5b=(c1b+c3b+c7b+c9b)*f14+(rndf*(0.5-drand48()));
  101.      if(c5b>1.0) c5b=1.0;
  102.     if(c5b<0.0) c5b=0.0;
  103.      fSetPixel(x2,y2,c5r,c5g,c5b);
  104.     fGetPixel(x2,y1,&aktr,&aktb,&aktg);
  105.     if(aktr==0.0 && aktg==0.0 && aktb==0.0) {
  106.      aktr=(c1r+c3r+c5r)*f13;
  107.       aktg=(c1g+c3g+c5g)*f13;
  108.      aktb=(c1b+c3b+c5b)*f13;
  109.      fSetPixel(x2,y1,aktr,aktg,aktb); 
  110.      }
  111.     fGetPixel(x1,y2,&aktr,&aktg,&aktb);
  112.     if((aktr==0.0) && (aktg==0.0) && (aktb==0.0)) {
  113.      aktr=(c1r+c7r+c5r)*f13;
  114.      aktg=(c1g+c7g+c5g)*f13;
  115.      aktb=(c1b+c7b+c5b)*f13;
  116.      fSetPixel(x1,y2,aktr,aktg,aktb); 
  117.     }
  118.      fGetPixel(x3,y2,&aktr,&aktg,&aktb);
  119.     if((aktr==0.0) && (aktg==0.0) && (aktb==0.0)) {
  120.      aktr=(c3r+c9r+c5r)*f13;
  121.       aktg=(c3g+c9g+c5g)*f13;
  122.       aktb=(c3b+c9b+c5b)*f13;
  123.       fSetPixel(x3,y2,aktr,aktg,aktb); 
  124.      }
  125.      fGetPixel(x2,y3,&aktr,&aktg,&aktb);
  126.     if((aktr==0.0) && (aktg==0.0) && (aktb==0.0)) {
  127.      aktr=(c7r+c9r+c5r)*f13;
  128.      aktg=(c7g+c9g+c5g)*f13;
  129.      aktb=(c7b+c9b+c5b)*f13;
  130.      fSetPixel(x2,y3,aktr,aktg,aktb); 
  131.     }
  132.     f[ptr][2]=x2;f[ptr][3]=y2;ptr++;
  133.     f[ptr][0]=x2;f[ptr][1]=y1;f[ptr][2]=x3;f[ptr][3]=y2;ptr++;
  134.     f[ptr][0]=x2;f[ptr][1]=y2;f[ptr][2]=x3;f[ptr][3]=y3;ptr++;
  135.     f[ptr][0]=x1;f[ptr][1]=y2;f[ptr][2]=x2;f[ptr][3]=y3;
  136.     if(ptr>250) {
  137.      printf("stack overflow\n");
  138.      ptr=-1;
  139.     }
  140.     }
  141.     else ptr--;
  142.   }
  143.  
  144.   time(&tm2);
  145.   tm=difftime(tm2,tm1);
  146.   printf(" Render-time: %lds\n",(ULONG)tm);
  147.  
  148.  
  149.   /* wait */
  150.   do {
  151.    WaitPort(theWindow->UserPort);
  152.    do {
  153.     imsg=(struct IntuiMessage*)GetMsg(theWindow->UserPort);
  154.     if(imsg!=NULL) {
  155.      iclass=imsg->Class;
  156.      icode=imsg->Code;
  157.      ReplyMsg((struct Message*)imsg);
  158.      switch(iclass) {
  159.       case IDCMP_VANILLAKEY:switch(icode) {
  160.                              case ' ':qt=1;break;
  161.                             }
  162.      }
  163.     }
  164.    } while(imsg!=NULL);
  165.   } while(qt==0);
  166.   /* clean up*/
  167.   cleanup();
  168.  }
  169.  return(0);
  170.  printf("\n");
  171. }
  172.  
  173.  
  174.